PROGRAM mult;
  VAR 
    a: INTEGER;
BEGIN 
  WriteLn('input:');
  ReadLn(a);
  WriteLn('output: ', a * a);
  ReadLn();
END.